home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / program / fpk65_66.zip / SOURCE / RTL / DOS / GLOBAL.PPI < prev    next >
Text File  |  1996-12-27  |  4KB  |  176 lines
  1. {$E-}
  2. {$PACKRECORDS NORMAL}
  3.  
  4.     const
  5.        { Fehlercodes }
  6.        grOk =  0;
  7.        grNoInitGraph = -1;
  8.        grNotDetected = -2;
  9.        grFileNotFound = -3;
  10.        grInvalidDriver = -4;
  11.        grNoLoadMem = -5;
  12.        grNoScanMem = -6;
  13.        grNoFloodMem = -7;
  14.        grFontNotFound = -8;
  15.        grNoFontMem = -9;
  16.        grInvalidMode = -10;
  17.        grError = -11;
  18.        grIOerror = -12;
  19.        grInvalidFont = -13;
  20.        grInvalidFontNum = -14;
  21.        grInvalidVersion = -18;
  22.  
  23.        { Graphiktreiber }
  24.        CurrentDriver = -128;
  25.        Detect = 0;
  26.      
  27.        { Graphikmodi }
  28.        Default = 0;
  29.        
  30.        { Farben für setpalette und setallpalette }
  31.        black = 0;
  32.        blue = 1;
  33.        green = 2;
  34.        cyan = 3;
  35.        red = 4;
  36.        magenta = 5;
  37.        brown = 6;
  38.        lightgray = 7;
  39.        darkgray = 8;
  40.        lightblue = 9;
  41.        lightgreen = 10;
  42.        lightcyan = 11;
  43.        lightred = 12;
  44.        lightmagenta = 13;
  45.        yellow = 14;
  46.        white = 15;
  47.  
  48.        { Linenart für Get/SetLineStyle: }
  49.        SolidLn = 0;
  50.        DottedLn = 1;
  51.        CenterLn = 2;
  52.        DashedLn = 3;
  53.        UserBitLn = 4;
  54.  
  55.        NormWidth = 1;
  56.        ThickWidth = 3;
  57.  
  58.        { Set/GetTextStyle Konstanten: }
  59.        DefaultFont = 0;
  60.        TriplexFont = 1;
  61.        SmallFont = 2;
  62.        SansSerifFont = 3;
  63.        GothicFont = 4;
  64.        ScriptFont = 5;
  65.        SimpleFont = 6;
  66.        TSCRFont = 7;
  67.        LCOMFont = 8;
  68.        EuroFont = 9;
  69.        BoldFont = 10;
  70.  
  71.        HorizDir = 0;
  72.        VertDir = 1;
  73.  
  74.        UserCharSize = 0;
  75.  
  76.        ClipOn = true;
  77.        ClipOff = false;
  78.  
  79.        { Bar3D Konstanten: }
  80.        TopOn = true;
  81.        TopOff = false;
  82.  
  83.        { Füllmuster für Get/SetFillStyle: }
  84.        EmptyFill = 0;
  85.        SolidFill = 1;
  86.        LineFill = 2;
  87.        LtSlashFill = 3;
  88.        SlashFill = 4;
  89.        BkSlashFill = 5;
  90.        LtBkSlashFill = 6;
  91.        HatchFill = 7;
  92.        XHatchFill = 8;
  93.        InterleaveFill = 9;
  94.        WideDotFill = 10;
  95.        CloseDotFill = 11;
  96.        UserFill = 12;
  97.  
  98.        { BitBlt-Operatoren  }
  99.        NormalPut     = 0;
  100.        CopyPut       = 0;
  101.        XORPut        = 1;
  102.        OrPut         = 2;
  103.        AndPut        = 3;
  104.        NotPut        = 4;
  105.  
  106.        { SetTextJustify-Konstanten }
  107.        LeftText   = 0;
  108.        CenterText = 1;
  109.        RightText  = 2;
  110.  
  111.        BottomText = 0;
  112.        TopText    = 2;
  113.  
  114.     type
  115.        RGBColor = record
  116.          r,g,b,i : byte;
  117.        end;
  118.        
  119.        PaletteType = record
  120.           Size   : integer; 
  121.           Colors : array[0..767]of Byte;
  122.        end;
  123.        
  124.        LineSettingsType = record
  125.           linestyle : word;
  126.           pattern : word;
  127.           thickness : word;
  128.        end;
  129.  
  130.        TextSettingsType = record
  131.           font : word;
  132.           direction : word;
  133.           charsize : word;
  134.           horiz : word;
  135.           vert : word;
  136.        end;
  137.  
  138.        FillSettingsType = record
  139.           pattern : word;
  140.           color : longint;
  141.        end;
  142.  
  143.        FillPatternType = array[1..8] of byte;
  144.  
  145.        PointType = record
  146.           x,y : integer;
  147.        end;
  148.  
  149.        ViewPortType = record
  150.           x1,y1,x2,y2 : integer;
  151.           Clip : boolean;
  152.        end;
  153.  
  154.        ArcCoordsType = record
  155.           x,y : integer;
  156.           xstart,ystart : integer;
  157.           xend,yend : integer;
  158.        end;
  159.        
  160.   const
  161.        fillpattern : array[0..12] of FillPatternType = (
  162.            ($00,$00,$00,$00,$00,$00,$00,$00),     { Hintergrundfarbe }
  163.            ($ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff),     { Vordergrundfarbe }
  164.            ($ff,$ff,$00,$00,$ff,$ff,$00,$00),     { === }
  165.            ($01,$02,$04,$08,$10,$20,$40,$80),     { /// }
  166.            ($07,$0e,$1c,$38,$70,$e0,$c1,$83),     { /// als dicke Linien }
  167.            ($07,$83,$c1,$e0,$70,$38,$1c,$0e),     { \\\ als dicke Linien }
  168.            ($5a,$2d,$96,$4b,$a5,$d2,$69,$b4),     { \ \\ \ }
  169.            ($ff,$88,$88,$88,$ff,$88,$88,$88),     { Kästchen }
  170.            ($18,$24,$42,$81,$81,$42,$24,$18),     { Rauten }
  171.            ($cc,$33,$cc,$33,$cc,$33,$cc,$33),     { "Mauermuster" }
  172.            ($80,$00,$08,$00,$80,$00,$08,$00),     { weit auseinanderliegende Punkte }
  173.            ($88,$00,$22,$00,$88,$00,$22,$00),     { dichte Punkte}
  174.            (0,0,0,0,0,0,0,0)                      { benutzerdefiniert }
  175.           );
  176.